home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / bm / bm_news2.geo / 00028.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  1.7 KB  |  54 lines
  1. on GetInfo theSp
  2.   set infoNum to theSp - 19
  3.   set VisHilight to Get_SMSelectedLine() - Get_SMCurrPlace()
  4.   if ((VisHilight <> infoNum) or (Get_SMSelectedLine() <> EMPTY)) and (infoNum <= Get_SMNumOfLines()) then
  5.     set TopLoc to Get_SMTopField()
  6.     set newLoc to ((infoNum - 1) * Get_SMSizeOfLine()) + TopLoc
  7.     set the locV of sprite Get_SMHiliteSprite() to newLoc
  8.     Set_SMSelectedLine(Get_SMCurrPlace() + infoNum)
  9.     Set_SMLastSp(theSp)
  10.     set the castNum of sprite theSp to the number of cast "info-down"
  11.     updateStage()
  12.     ShowItemInfo()
  13.   end if
  14. end
  15.  
  16. on ShowItemInfo
  17.   put line Get_SMSelectedLine() of Get_SMSourceField() into field "TitleFld"
  18.   set save to the itemDelimiter
  19.   set the itemDelimiter to "#"
  20.   put item Get_SMSelectedLine() of field ("INFO" & Get_SMChosenSubMenu() & "-" & Get_ScreenSubject()) into field "InfoFld"
  21.   set the itemDelimiter to save
  22.   go("infoWD")
  23. end
  24.  
  25. on CopyItem theSp
  26.   set CopyNum to theSp - 29
  27.   set VisHilight to Get_SMSelectedLine() - Get_SMCurrPlace()
  28.   if ((VisHilight <> CopyNum) or (Get_SMSelectedLine() <> EMPTY)) and (CopyNum <= Get_SMNumOfLines()) then
  29.     set TopLoc to Get_SMTopField()
  30.     set newLoc to ((CopyNum - 1) * Get_SMSizeOfLine()) + TopLoc
  31.     set the locV of sprite Get_SMHiliteSprite() to newLoc
  32.     Set_SMSelectedLine(Get_SMCurrPlace() + CopyNum)
  33.     Set_SMLastSp(theSp)
  34.     set the castNum of sprite theSp to the number of cast "Copy-down"
  35.     updateStage()
  36.     CopyItemProc()
  37.   end if
  38. end
  39.  
  40. on CopyItemProc
  41.   put line Get_SMSelectedLine() of Get_SMSourceField() into field "SelectedCopy"
  42.   go("copying")
  43. end
  44.  
  45. on Set_SMLastSp theSp
  46.   global LastSP
  47.   set LastSP to theSp
  48. end
  49.  
  50. on Get_SMLastSP theSp
  51.   global LastSP
  52.   return LastSP
  53. end
  54.